Profile of (eval 207)[Sub/Quote.pm:3]

Filename	(eval 207)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 64 statements in 553µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
11	2	2	105µs	1.62ms	Method::Generate::Constructor::::newMethod::Generate::Constructor::new
1	1	1	12µs	47µs	Method::Generate::Constructor::BEGIN@5.68
1	1	1	7µs	7µs	Method::Generate::Constructor::BEGIN@10.69

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	2µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	1µs			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4					package Method::Generate::Constructor;
5	2	89µs	2	82µs	# spent 47µs (12+35) within Method::Generate::Constructor::BEGIN@5.68 which was called: # once (12µs+35µs) by Sub::Quote::_clean_eval at line 5 no warnings 'closure'; # spent 47µs making 1 call to Method::Generate::Constructor::BEGIN@5.68 # spent 35µs making 1 call to warnings::unimport
6					# spent 1.62ms (105µs+1.52) within Method::Generate::Constructor::new which was called 11 times, avg 148µs/call: # 10 times (95µs+1.52ms) by Moo::_constructor_maker_for at line 262 of Moo.pm, avg 162µs/call # once (10µs+0s) by Moo::_constructor_maker_for at line 177 of Sub/Defer.pm sub new {
7					($_QUOTED,$_UNQUOTED) if 0;
8					# BEGIN quote_sub PRELUDE
9					package Method::Generate::Constructor;
10					# spent 7µs within Method::Generate::Constructor::BEGIN@10.69 which was called: # once (7µs+0s) by Sub::Quote::_clean_eval at line 15 BEGIN {
11	1	1µs			$^H = 2018;
12	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
13	1	6µs			%^H = (
14					);
15	1	361µs	1	7µs	} # spent 7µs making 1 call to Method::Generate::Constructor::BEGIN@10.69
16					# END quote_sub PRELUDE
17	9	4µs			my $invoker = CORE::shift();
18	9	1µs			my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
19	9	4µs			if ($class ne "Method::Generate::Constructor") {
20					if ($Moo::MAKERS{$class}) {
21					if ($Moo::MAKERS{$class}{constructor}) {
22					package Method::Generate::Constructor;
23					return $invoker->SUPER::new(@_);
24					}
25					Moo->_constructor_maker_for($class);
26					return $invoker->new(@_);
27					} elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
28					return $meta->new_object(
29					$class->can("BUILDARGS") ? $class->BUILDARGS(@_)
30					: $class->Moo::Object::BUILDARGS(@_)
31					);
32					}
33					}
34					my $args = scalar @_ == 1
35					? CORE::ref $_[0] eq 'HASH'
36	9	21µs			? { %{ $_[0] } }
37					: Carp::croak("Single parameters to new() must be a HASH ref"
38					. " data => ". $_[0])
39					: @_ % 2
40					? Carp::croak("The new() method for $class expects a hash reference or a"
41					. " key/value list. You passed an odd number of arguments")
42					: {@_}
43					;
44	9	7µs			my $new = bless({}, $class);;
45					(exists $args->{"accessor_generator"} and ($new->{"accessor_generator"} = $args->{"accessor_generator"})),
46					(exists $args->{"attribute_specs"} and ($new->{"attribute_specs"} = $args->{"attribute_specs"})),
47					(exists $args->{"construction_builder"} and ($new->{"construction_builder"} = $args->{"construction_builder"})),
48					(exists $args->{"construction_string"} and ($new->{"construction_string"} = $args->{"construction_string"})),
49					(exists $args->{"package"} and ($new->{"package"} = $args->{"package"})),
50	9	48µs			(exists $args->{"subconstructor_handler"} and ($new->{"subconstructor_handler"} = $args->{"subconstructor_handler"})),
51					return $new;
52					}
53	1	1µs			$$_UNQUOTED = \&new;
54					}
55	1	6µs			1;
56
57					;